SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TMSABA_MENS_Q02]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : MANUELA RAMOS              --*/
/*---Sistema              : Caja y Bancos              --*/
/*---M+dulo               : Empresa                    --*/
/*---Programa             : Consulta de saldos         --*/
/*---                       Actuales y reales          --*/
/*---                       Movimiento Bancos	       --*/
/*---Script               : TMSABA_M.SQL	       --*/
/*---Nombre SP            : SP_TMSABA_MENS_Q02         --*/
/*---Desarrollado por     : M. Antonio Rojas Mendoza   --*/
/*---Fecha Creaci+n       : 02/08/1999                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi+n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     : EVP			       --*/
/*---Fecha Modificaci+n   : 30/10/2000		       --*/ 
/*---Detalle Modificaci+n : MIGRACION A ORACLE	       --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*--------------------------------------------------------------------- */
/* Drop Proc SP_TMSABA_MENS_Q02			 	 		*/
/* Grant All On SP_TMSABA_MENS_Q02_GOV To Public	 			*/
/* SP_TMSABA_MENS_Q02 '10',  NULL 					*/
/*  SP_TMSABA_MENS_Q02_GOV 'JGUEV', '2003-01-01', " And TCMOVI_BANC.CO_BANC in ( 'CON','CRE','LAT') And 
TCMOVI_BANC.NU_CNTA_BANC in ( '14877-1444','193-145228','878654646','147-025885','145-151550','2565656') "	*/
/*----------------------------------------------------------------------*/

@ISCO_USUA TD_VC_008_USUA,
@IDFE_OPER TD_DT_001,
--@ISST_FECH TD_VC_001, /*'D','O','P','C'*/
--@ISSE_FECH TD_VC_001,  /*'O', 'S' */
@ISCA_WHER_LOCA Varchar(300)
	As
BEGIN

DECLARE
@VNIM_SALD_INIC	NUMERIC(16,4),
@VNIM_TOTA	NUMERIC(16,4),
@VSDE_NOMB    	TD_VC_050,
@VSDE_NOMB_BANC	TD_VC_050,
@VSDE_CNTA_BANC  TD_VC_050,
@VSCO_MONE 	TD_VC_050,
@VNSA_REAL 	NUMERIC(16,4),
@CSCO_EMPR TD_VC_002,
@CSCO_BANC TD_VC_003,
@CSNU_CNTA_BANC TD_VC_020

-- CURSOR

Execute("
DECLARE CU_TMSABA_MENS_Q02_1 CURSOR FOR
Select DISTINCT   TMSABA_MENS.CO_EMPR , TMSABA_MENS.CO_BANC , TMSABA_MENS.NU_CNTA_BANC 
From TMSABA_MENS,TCMOVI_BANC
Where  	Exists ( Select * From  TTUSER_CNBA 
  	        Where TMSABA_MENS.CO_EMPR = TTUSER_CNBA.CO_EMPR
		And   TMSABA_MENS.CO_BANC  = TTUSER_CNBA.CO_BANC
		And   TMSABA_MENS.NU_CNTA_BANC = TTUSER_CNBA.NU_CNTA_BANC
		And   TTUSER_CNBA.CO_USUA = '" + @ISCO_USUA + "'
		And   TTUSER_CNBA.ST_REPO = 'S' ) " + @ISCA_WHER_LOCA )     

Open CU_TMSABA_MENS_Q02_1
FETCH CU_TMSABA_MENS_Q02_1 INTO @CSCO_EMPR , @CSCO_BANC , @CSNU_CNTA_BANC

   WHILE (@@FETCH_STATUS = 0)
	BEGIN
	IF (@@FETCH_STATUS < 0)
	Begin
	RAISERROR 20001 "FIN DE ARCHIVO"
	CLOSE CU_TMSABA_MENS_Q02_1
	DEALLOCATE CU_TMSABA_MENS_Q02_1
	RETURN
	End

SELECT @VNIM_SALD_INIC = 0
SELECT @VNIM_TOTA = 0
SELECT @VNSA_REAL = 0

Select @VNSA_REAL = ISNULL(IM_SALD_REAL,0)
FROM   TMCNTA_SARE
Where  CO_EMPR = @CSCO_EMPR
And    CO_BANC = @CSCO_BANC
And    NU_CNTA_BANC = @CSNU_CNTA_BANC
And    FE_SALD_REAL = @IDFE_OPER

-- SALDO INICIAL CNIM_SALD_INIC
  Select @VNIM_SALD_INIC  = ISNULL(IM_SALD_INIC,0)
  FROM #TWSABA_REPO
  WHERE CO_EMPR = @CSCO_EMPR
  And CO_BANC = @CSCO_BANC
  And NU_CNTA_BANC = @CSNU_CNTA_BANC

  SELECT @VNIM_TOTA = @VNIM_SALD_INIC

 Select @VSDE_NOMB = t3.DE_NOMB, 
 @VSDE_NOMB_BANC =t2.DE_NOMB_BANC, 
 @VSDE_CNTA_BANC =t1.DE_CNTA_BANC, 

 @VSCO_MONE = t1.CO_MONE
 From TMCNTA_BANC t1 , TTBANC_FINA t2 , TMEMPR t3
 WHERE t1.CO_EMPR= @CSCO_EMPR
 And t1.CO_BANC = @CSCO_BANC
 And t1.NU_CNTA_BANC = @CSNU_CNTA_BANC
 And t1.CO_BANC = t2.CO_BANC
 And t1.CO_EMPR = t3.CO_EMPR 

 /**	Asigna valores a la tabla temporal **/

Insert into #TWSABA_MENS_Q02_1(  CO_EMPR , DE_NOMB , CO_BANC , DE_NOMB_BANC , NU_CNTA_BANC , 
CO_MONE , SA_REAL , SA_ACTU )
Values ( @CSCO_EMPR , @VSDE_NOMB  , @CSCO_BANC , @VSDE_NOMB_BANC  , @CSNU_CNTA_BANC , 
@VSCO_MONE  , @VNSA_REAL , @VNIM_TOTA )

FETCH CU_TMSABA_MENS_Q02_1 INTO @CSCO_EMPR, @CSCO_BANC, @CSNU_CNTA_BANC
END

CLOSE CU_TMSABA_MENS_Q02_1
DEALLOCATE CU_TMSABA_MENS_Q02_1

END
/*------------------------- FIN ------------------------------ */


GO
